﻿CREATE PROC Inv.spInsertaCorreoBoletin
	@psCorreo	VARCHAR(250),
	@psIpMod	VARCHAR(15)
AS
BEGIN
	SET NOCOUNT ON
	DECLARE @sMensaje NVARCHAR(250)
	
	IF EXISTS(SELECT 1 FROM Inv.CatUsuarioBoletin WHERE Correo = @psCorreo)
	BEGIN
		SET @sMensaje = 'El correo electronico ya esta registrado en nuestro boletín.'
		RAISERROR(@sMensaje, 16, 1)
		RETURN
	END
	
	INSERT INTO Inv.CatUsuarioBoletin
	        ( Correo, IpMod, FechaUltMod )
	VALUES  ( @psCorreo, -- Correo - nvarchar(250)
	          @psIpMod, -- IpMod - varchar(15)
	          GETDATE()  -- FechaUltMod - datetime
	          )
	
	SET NOCOUNT OFF
END